home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 50 / 050.d81 / bits 2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  68 lines
  1. 0 ifa=1then forx=1to1000:next:poke251,6:poke252,6:goto4
  2. 1 poke53274,.:sys65418:poke53280,6:poke53281,6
  3. 2 print"[147][208]lease [215]ait...."
  4. 3 ifa=0thena=1:load"raster.o",8,1
  5. 4 tp=49:bot=250:poke253,tp:poke254,bot:poke53280,12:poke53281,12:sys32768
  6. 5 poke253,tp:poke254,bot
  7. 6 tp=tp+1:bot=bot-1
  8. 7 iftp=150 then print"[147]"
  9. 8 iftp>155 then 10
  10. 9 goto 5
  11. 10 poke53274,0:sys65418:poke650,128:print"[152][147]":poke53265,12:forx=1to1000:next
  12. 25 poke53280,12:poke53281, 0:print"[147]";
  13. 26 print"[152]                                                [158]   L O A D S T A R   ";
  14. 27 print"[152]                         Presents                                      ";
  15. 28 print"                                                                       ";
  16. 29 print"                         [152]              [153]  ZERO PAGE : Bits        [151] [152]";
  17. 30 print"                                       [151] [152]            [153]  'Raster Inter";
  18. 31 print"rupts'      [151] [152]                                       [151] [152]        [153] (I";
  19. 32 print"nteractive [196]emonstration)   [151] [152]                                       ";
  20. 33 print"[151] [152]        [151]                                [152]                           ";
  21. 34 print"                       [159]                         [152]               [159]    Wr";
  22. 35 print"itten [194]y [202]im [210]ow   [151] [152]              [159]                         [151] [152]       ";
  23. 36 print"       [159]                         [151] [152]               [151]                    ";
  24. 37 print"     [152]                                                          COPYRIG";
  25. 38 print"HT[160]1988           [152]                                                     ";
  26. 39 print"                               [155]   [208]ress [211][208][193][195][197] when ready to continue   ";
  27. 40 print"[152]                                       ":poke2023,32+128
  28. 45 poke53265,27
  29. 50 geta$:ifa$=""then50
  30. 51 poke253,76 :rem first raster int.
  31. 52 poke254,228:rem second raster int.
  32. 53 :
  33. 54 poke251,0:  rem color1
  34. 55 poke252,6:  rem color2
  35. 56 :
  36. 57 poke53280,240:poke53281,246
  37. 58 :
  38. 60 print"[147]":sys32768
  39. 70 print"[147]         [210]aster [201]nterrupt [196]emo
  40. 71 [153]"         tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  41. 72 print"    [208]ress [198]1 [212]o raise top line
  42. 73 [153]"    (NULL)ress asc3 (NULL)o lower top line
  43. 75 print"    [208]ress [198]5 [212]o raise bottom line
  44. 76 [153]"    (NULL)ress asc7 (NULL)o lower bottom line
  45. 77 print"    [208]ress [211] to change [211][195][210][197][197][206] [195][207][204][207][210]
  46. 78 [153]"    (NULL)ress peek to change peek(NULL)(NULL)str$val(NULL) len(NULL)(NULL)(NULL)(NULL)
  47. 79 print"    [208]ress [211][208][193][195][197][146] to [197][216][201][212] to [204][207][193][196][211][212][193][210]
  48. 80 [161]a$:[139]a$[178]""[167]80
  49. 81 [139]a$[178]"input"[175] [194](253)[177]1[167] [151]253,[194](253)[171]1
  50. 82 [139]a$[178]"dim"[175] [194](253)[179]255[167] [151]253,[194](253)[170]1
  51. 83 [139]a$[178]"read"[175] [194](254)[177]1 [167] [151]254,[194](254)[171]1
  52. 84 [139]a$[178]"let"[175] [194](254)[179]255[167] [151]254,[194](254)[170]1
  53. 85 [139]a$[178]" "[167]100
  54. 86 [139]a$[178]"s"[176]a$[178]"(NULL)"[167][151]251,[194](251)[170]1:[139][194](251)[178]16[167][151]251,0
  55. 87 [139]a$[178]"b"[176]a$[178]"peek"[167][151]252,[194](252)[170]1:[139][194](252)[178]16[167][151]252,0
  56. 88 [139]a$[178]" "[167]100
  57. 89 [139][194](251)[178]1[167][151]251,2
  58. 90 [137] 80
  59. 100 [153]"  atnre you sure you want to quit? ((NULL)/(NULL)) "
  60. 110 [161]a$:[139]a$[178]""[167]110
  61. 111 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] 120
  62. 112 [139]a$[178]"n"[176]a$[178]"(NULL)"[167] 70
  63. 115 [137] 110
  64. 120 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er,er$:[160]15
  65. 121 [151]53274,.:[158]65418
  66. 125 [139]er[179][177]63 [167] [153]"load":[128]
  67. 130 [147]"hello connect",8
  68.